home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1993 November / JCSM Shareware Collection - 1993-11.iso / cl720 / vxbase1j.lzh / VXBTUT0.FRM (.txt) < prev    next >
Visual Basic Form  |  1993-03-04  |  8KB  |  234 lines
  1. vxbtut0
  2. Business Card Directory
  3. Form1%
  4. StatBar
  5. menu0
  6. &File
  7. OpenFile
  8. &Open
  9. SepBar1
  10. ExitMenu
  11. &Exit
  12. menu1
  13. &Maintenance
  14. PackFile
  15. &Pack
  16. CmdTest
  17. &Test
  18. StatBar_Changef
  19. ExitMenu_Click]
  20. vxbtut0
  21. Form_Click
  22. Form_Unload
  23. Cancel
  24. vxDeallocate
  25.     Form_Load
  26. vxInitx
  27. vxSetLocks
  28. FALSE$
  29. vxCloseAll
  30. NewFile
  31. vxFile
  32. MasterFile
  33.     FileStruc
  34. BFile
  35. Fld01
  36. Fld02
  37. Fld03
  38. Fld04
  39. Fld05
  40. Fld06
  41. Fld07
  42. Fld08
  43. Fld09
  44. Fld10
  45. Fld11
  46. Fld12
  47. Fld13
  48. Fld14
  49. Fld15N
  50. vxCreateDbf
  51. Form_Paint
  52. vxFormFrame
  53. hWndZ
  54. vxCtlStyle
  55. StatBar+
  56.     VX_RECESS
  57. DbfArea
  58. OpenFile_Clicku
  59. vxUseDbfw
  60. NtxArea1
  61. vxCreateNtx
  62. NtxArea2
  63. vxUseNtx
  64. vxbtut1
  65. OpenFilef
  66. Enabled
  67. ExitMenu
  68. vxFilterO
  69. vxTopL
  70. vxEof
  71. EditMode
  72. ADDING
  73. vxbtut2
  74. vxCtlGraySet:
  75. vxCtlGrayResets
  76. vxSetStringY
  77. vxSetMeters
  78. PackFile_Click
  79.     vxAreaDbf
  80.     vxNumRecs
  81. vxPack
  82. vxClose^
  83. aborted
  84. simply
  85. MousePointer
  86. vxSelectDbfP
  87. vxSelectNtxc
  88. vxSetSelect
  89. vxUnlockB
  90. StateDbf
  91. StateNtx
  92. vxTableDeclareo
  93. VX_GRAY4
  94. vxTableField`
  95. VX_FIELD'
  96. vxBrowsePos
  97. vxBrowseSetup
  98. VX_SEMIBOLD
  99. BrowseRunning
  100. Form_QueryUnload
  101. UnloadMode
  102. vxSetLanguage
  103.     VX_GERMAN
  104. VX_ENGLISH
  105. Form_DragOver
  106. Source
  107. Control
  108. State8
  109. CmdTest_Click
  110. menu0_Click
  111. SepBar1_Click
  112. vxSeek
  113. vxUseDbfRO
  114. vxCloseNtxx
  115. vxMemCompact
  116.     vxSetAnsi
  117. ExitMenu_Click
  118.  when exit menu item clicked, unload
  119.  controller form: cleanup code is in
  120.  form_unload procedure
  121. Form_Load
  122.  initialize vxBase
  123.  register task
  124.  VB strings
  125.  clipper locking
  126.  reset system gray
  127.  and again in case
  128.  other apps runninga
  129.  browse not active
  130. Form_Paint
  131.  for a new file if neededf
  132.  make form 3-d
  133.  test for existence of master file
  134.  and create if necessary
  135. \vb\vxbtest\vxcard.dbf
  136. File does not exist. Make?
  137. Creating new master file
  138.  1234567890123456
  139. COMPANY   C 40 0
  140. NAME      C 40 0
  141. TITLE     C 40 0
  142. ADDRESS1  C 40 0
  143. ADDRESS2  C 40 0
  144. CITY      C 30 0
  145. STATE     C 25 0
  146. COUNTRY   C 25 0
  147. ZIPCODE   C 10 0
  148. ACTIVITY  C 40 0
  149. PHONE     C 20 0
  150. FAX       C 20 0
  151. CDATE     D  8 0
  152. ACCESSES  N  5 0
  153. BMEMO     M 10 0
  154. \vb\vxbtest\vxcard.dbf
  155. Could not create master file
  156.  end if user does not want new file
  157. Form_QueryUnload
  158.  VB 2.0 routine to ensure browse is closed
  159.  before the user terminates the application
  160. Close Browse first
  161. Form_Unload
  162.  clean up memory for vxbaseb
  163.  for safety's sake
  164.  reset system gray
  165. OpenFile_Click
  166.  open file and create indexes if necessary
  167. \vb\vxbtest\vxcard.dbf
  168. Error opening file. Aborting
  169.  test for existence of ntx files and createe
  170.  if necessary or else just open
  171. \vb\vxbtest\vxcard1.ntx
  172. \vb\vxbtest\vxcard1.ntx
  173. upper(company)
  174. \vb\vxbtest\vxcard1.ntx
  175. Error opening index 1. Aborting.
  176.  closes any open files
  177. \vb\vxbtest\vxcard2.ntx
  178. \vb\vxbtest\vxcard2.ntx
  179. upper(activity)+upper(company)
  180. \vb\vxbtest\vxcard2.ntx
  181. Error opening index 2. Aborting.
  182.  open state codes file for a help list
  183. \vb\vxbtest\states.dbf
  184. \vb\vxbtest\state1.ntx
  185.  set up statesfile browser
  186. statecode
  187. statename
  188.  select the master filef
  189.  if no legit records then execute add routinee
  190. .NOT. deleted()
  191.  set deleted one
  192.  data entry form is modal
  193.  if user cancelled addition then there
  194.  still won't be any records so we go
  195.  back to the menuh
  196. No Records to browse.
  197.  close the files
  198.  open the browse windown
  199. PackFile_Click
  200.  remove logically deleted recordso
  201.  and reindex
  202.  if file doesn't exist, exit
  203. \vb\vxbtest\vxcard.dbf
  204.  make sure file isn't open in any task
  205. \vb\vxbtest\vxcard.dbf
  206.  open dbf and index filesx
  207. \vb\vxbtest\vxcard.dbf
  208. Error opening file. Aborting
  209.  if no records yet, exit herei
  210. \vb\vxbtest\vxcard1.ntx
  211. Error opening index 1. Aborting.
  212. \vb\vxbtest\vxcard2.ntx
  213. Error opening index 2. Aborting.
  214.  if less than 100 records then
  215.  turn meter bars off because they come and
  216.  go so quickly they confuse the user
  217.  change MousePointer to Hourglassu
  218.  Pack file. File is automatically locked
  219.  for the duration. Pack also reindexes.d
  220. Pack failed!
  221. Pack successful!
  222.  if the meters were off, the msgbox 
  223.  tells the user that the operation ist
  224.  completeo
  225.  If another workstation had the file open,
  226.  the vxBase lock attempt would fail and thea
  227.  user would be given the opportunity ton
  228.  try again or abort the operation. Ifi
  229.  aborted, the pack returns FALSE and we 
  230.  simply close the files and return tot
  231.  the menu.
  232.  turn meter bars back on
  233.  change MousePointer back to arrow
  234.